(load "install-integer-package.ss")
(load "install-rational-package.ss")
(load "install-rectangular-package.ss")
(load "install-polar-package.ss")
(load "install-real-package.ss")
(load "install-complex-package.ss")
(load "apply-generic.ss")


(define (raise x) (apply-generic 'raise x))

(define (add x y) (apply-generic 'add x y))

(define (sub x y) (apply-generic 'sub x y))

(define (mul x y) (apply-generic 'mul x y))

(define (div x y) (apply-generic 'div x y))

(define (equ? x y) (apply-generic 'equ? x y))

(define (=zero? x) (apply-generic '=zero? x))

(install-integer-package)
(install-rational-package)
(install-rectangular-package)
(install-polar-package)
(install-real-package)
(install-complex-package)

(define one (make-integer 1))
(define one-thirds (make-rat 1 3))
(display (multi-raise 'complex one))
(exit)